\name{VIMCFX96_meltcurve}
\alias{VIMCFX96_meltcurve}
\docType{data}
\title{
Melting Curve Measured with the Bio-Rad CFX96
}
\description{
Data set of a melting curve using the Bio-Rad CFX96 thermo cycler. The samples 
of Vimentin were measured in the CFX96 as replicates according to Roediger et 
al. (2013). The quantification was performed during the gradient from 55 to 95 
degrees Celsius with a resolution of 0.5 degrees Celsius per step.
}
\usage{data(VIMCFX96_meltcurve)}
\format{
  A data frame with 81 observations on the following 97 variables. The first 
  column ("Temperature") contains the temperature and consecutive columns 
  contain the replicates ("A1" to "H12").
}

\source{
Stefan Roediger, Claudia Deutschmann (BTU Cottbus - Senftenberg)
}

\references{
A Highly Versatile Microscope Imaging Technology Platform for the Multiplex 
Real-Time Detection of Biomolecules and Autoimmune Antibodies. S. Roediger, 
P. Schierack, A. Boehm, J. Nitschke, I. Berger, U. Froemmel, C. Schmidt, 
M. Ruhland, I. Schimke, D. Roggenbuck, W. Lehmann and C. Schroeder.
\emph{Advances in Biochemical Bioengineering/Biotechnology}. 133:33--74, 2013.
\url{http://www.ncbi.nlm.nih.gov/pubmed/22437246}
}
\examples{
data(VIMCFX96_meltcurve)
tmp <- VIMCFX96_meltcurve

plot(NA, NA, xlim = c(55,95), ylim = c(2000, 7000), xlab = "Temperature 
    (degrees Celsius)",
    ylab = "RFU", main = "Melting curve in CFX96 (Bio-Rad)")
apply(tmp[, 2:ncol(tmp)], 2, 
      function(x) lines(tmp[1:nrow(tmp),1],x))

Fmean <- rowMeans(tmp[, 2:ncol(tmp)])
lines(tmp[1:nrow(tmp),1], Fmean, col = "red", lwd = 3)

legend(55, 4000, c("Raw", "Mean"), pch = c(19,19), col = c(1,2))
}
\keyword{datasets}
\keyword{melt}
\keyword{CFX96}